home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 35 / Amiga Format AFCD35 (Issue 119, Jan 1999).iso / -in_the_mag- / reader_requests / fredobbutils / bbsrc / lizardbb.s < prev    next >
Text File  |  1998-11-06  |  5KB  |  210 lines
  1. ; Bootblock Spécial: CREEPS bootblock
  2. ; Un bootblock très rigolo: un petit lézard grimpe sur l'écran !
  3.  
  4.  
  5. Start:
  6.  
  7.     move.l    4.w,a6
  8.  
  9.     MOVEM.L    D0-A5,-(A7)
  10.     LEA    gfxname(PC),A1
  11.     JSR    -408(A6)
  12.     MOVE.L    D0,A5
  13.     MOVE.W    #320,D0        ;Width
  14.     MOVE.W    #280,D1        ;Height
  15.     JSR    -492(A5)
  16.     MOVE.L    D0,-(A7)
  17.     MOVE.L    $0026(A5),-(A7)
  18.     MOVE.L    D0,A1
  19.     MOVE.W    #$0AEF,D1
  20.     MOVEQ    #$00,D2
  21. LB_0034    MOVE.L    D2,(A1)+
  22.     DBF    D1,LB_0034
  23.     LEA    LB_02F4(PC),A0
  24.     SUBA.W    #$24AB,A1
  25.     MOVEQ    #$13,D2
  26. LB_0044    MOVEQ    #$0B,D1
  27. LB_0046    MOVE.B    (A0)+,(A1)+
  28.     DBF    D1,LB_0046
  29.     ADDA.W    #$001C,A1
  30.     DBF    D2,LB_0044
  31.     LEA    LB_01D6(PC),A0
  32.     MOVE.W    D0,$0004(A0)
  33.     SWAP    D0
  34.     MOVE.W    D0,(A0)
  35.     MOVE.L    #$00DFF000,A3
  36.     MOVE.W    $001C(A3),-(A7)
  37.     MOVE.W    $0002(A3),-(A7)
  38.     MOVE.L    #$7FFF7FFF,$009A(A3)
  39.     LEA    CopList(PC),A0
  40.     MOVE.L    A0,$0080(A3)
  41.     MOVE.W    #$83A0,$0096(A3)
  42.     MOVE.W    #$26D2,D2
  43. LB_0088    MOVEQ    #$07,D0
  44. LB_008A    BTST    #$00,$0005(A3)
  45.     BNE.B    LB_008A
  46. LB_0092    BTST    #$00,$0005(A3)
  47.     BEQ.B    LB_0092
  48.     CLR.L    $0008(A3)
  49.     LEA    LB_0210(PC),A0
  50.     MOVEQ    #$06,D1
  51. LB_00A4    MOVE.L    A0,$0124(A3)
  52.     ADDQ.W    #4,A3
  53.     DBF    D1,LB_00A4
  54.     SUBA.W    #$001C,A3
  55.     BTST    #$06,$00BFE001
  56.     BEQ.W    LB_0166
  57.     DBF    D0,LB_008A
  58.     LEA    LB_020C(PC),A0
  59.     TST.B    (A0)
  60.     BNE.B    LB_00D2
  61.     BTST    #$02,$0003(A0)
  62.     BEQ.B    LB_0088
  63. LB_00D2    SUBI.L    #$04000400,(A0)
  64.     CMPI.B    #$FC,(A0)
  65.     BNE.B    LB_00E4
  66.     BCHG    #$02,$0003(A0)
  67. LB_00E4    CMPI.B    #$FC,$0002(A0)
  68.     BNE.B    LB_00F4
  69.     ADDQ.W    #1,(A0)
  70.     BCHG    #$01,$0003(A0)
  71. LB_00F4    MOVE.L    (A0),$0074(A0)
  72.     LEA    LB_01FE(PC),A1
  73.     MOVE.W    (A1),D0
  74.     CMP.W    A0,D0
  75.     BNE.B    LB_0108
  76.     ADDA.W    #$0074,A0
  77.     BRA.B    LB_0158
  78. LB_0108    MOVE.L    $0008(A7),A2
  79.     ADDA.W    D2,A2
  80.     ORI.B    #$20,(A2)
  81.     ORI.B    #$A8,$0028(A2)
  82.     ORI.B    #$50,$0050(A2)
  83.     ORI.B    #$04,-$009F(A2)
  84.     ORI.B    #$15,-$0077(A2)
  85.     ORI.B    #$0A,-$004F(A2)
  86.     ORI.B    #$80,$01E0(A2)
  87.     ORI.B    #$50,$0208(A2)
  88.     ORI.W    #$A801,$0230(A2)
  89.     ORI.W    #$200A,$0258(A2)
  90.     ORI.B    #$15,$0281(A2)
  91.     ORI.B    #$04,$02A9(A2)
  92.     SUBI.W    #320,D2
  93. LB_0158    MOVE.L    A0,D0
  94.     MOVE.W    D0,(A1)
  95.     SWAP    D0
  96.     SUBQ.W    #4,A1
  97.     MOVE.W    D0,(A1)
  98.     BRA.W    LB_0088
  99. LB_0166    MOVE.L    #$7FFF7FFF,$009A(A3)
  100.     ORI.L    #$8000C000,(A7)
  101.     MOVE.W    (A7)+,$0096(A3)
  102.     MOVE.W    (A7)+,$009A(A3)
  103.     MOVE.L    (A7)+,$0080(A3)
  104.     MOVE.L    (A7)+,A0
  105.     MOVE.W    #320,D0        ;Width
  106.     MOVE.W    #260,D1        ;Height
  107.     JSR    -498(A5)
  108.     MOVE.L    A5,A1
  109.     JSR    -414(A6)
  110.     MOVEM.L    (A7)+,D0-A5
  111.     LEA    dosname(PC),A1
  112.     MOVE.W    #"do",(A1)
  113.     JSR    -96(A6)
  114.     MOVE.L    D0,A0
  115.     MOVE.L    $0016(A0),A0
  116.     MOVEQ    #$00,D0
  117.     RTS    
  118.  
  119. gfxname    dc.b    "graph"
  120. dosname    dc.b    "ics.library",0
  121.     even
  122. ; Copper list
  123. CopList:
  124.     DC.w    $0180,$0B96
  125.     dc.w    $0182,$0420
  126.     DC.w    $01A2,$0F00
  127.     dc.w    $01A4,$0050
  128.     DC.w    $01A6,$0070
  129.     dc.w    $00E0
  130. LB_01D6    dc.w    $0000
  131.     DC.w    $00E2,$0000,$0100,$1200
  132.     DC.w    $0102,$0000,$0104,$003F
  133.     dc.w    $0108,$0000
  134.     DC.w    $008E,$2C81,$0090,$2CC1
  135.     DC.w    $0092,$0038,$0094,$00D0
  136.     DC.w    $0120,$0000,$0122
  137. LB_01FE
  138.     DC.w    $0000,$6D07,$FFFE,$0182
  139.     DC.w    $0A85,$FFFF,$FFFE
  140. LB_020C
  141.     DC.B    $20,$88,$3C,$06
  142. LB_0210
  143.     DC.B    $00,$00,$20,$00,$20,$00,$A9,$80
  144.     DC.B    $70,$00,$71,$80,$23,$40,$21,$80
  145.     DC.B    $23,$00,$23,$C4,$23,$04,$23,$D5
  146.     DC.B    $33,$0E,$33,$CE,$3F,$20,$3F,$E4
  147. LB_0230
  148.     DC.B    $1F,$30,$1F,$F4,$0F,$38,$0F,$FC
  149.     DC.B    $07,$1C,$07,$DC,$06,$00,$07,$C0
  150.     DC.B    $06,$00,$07,$80,$06,$00,$07,$80
  151.     DC.B    $06,$00,$07,$80,$06,$00,$07,$80
  152.     DC.B    $06,$00,$07,$C0,$07,$00,$07,$C0
  153.     DC.B    $03,$00,$3F,$F8,$03,$00,$2F,$F8
  154.     DC.B    $43,$0C,$E3,$CC,$71,$84,$71,$84
  155.     DC.B    $21,$86,$A9,$87,$01,$0E,$21,$8E
  156.     DC.B    $01,$04,$01,$95,$00,$00,$01,$84
  157.     DC.B    $00,$00,$01,$00,$00,$00,$01,$00
  158.     DC.B    $20,$88,$3C,$06,$00,$00,$00,$04
  159.     DC.B    $00,$04,$01,$95,$00,$0E,$01,$8E
  160.     DC.B    $03,$44,$01,$84,$03,$04,$23,$C4
  161.     DC.B    $23,$04,$AB,$C4,$73,$00,$73,$CC
  162.     DC.B    $07,$00,$27,$FC,$0F,$00,$2F,$F8
  163.     DC.B    $1F,$00,$3F,$F0,$0B,$00,$1B,$E0
  164.     DC.B    $01,$80,$03,$E0,$01,$80,$01,$E0
  165.     DC.B    $01,$80,$01,$E0,$01,$80,$01,$E0
  166.     DC.B    $01,$80,$01,$E0,$01,$80,$03,$E0
  167.     DC.B    $03,$00,$03,$EC,$0F,$00,$0F,$FC
  168.     DC.B    $1F,$00,$1F,$F4,$13,$02,$13,$C7
  169.     DC.B    $11,$8E,$11,$8E
  170. LB_02DC
  171.     DC.B    $31,$84,$71,$95,$38,$80,$39,$84
  172.     DC.B    $10,$80,$55,$80,$00,$00,$11,$80
  173.     DC.B    $00,$00,$00,$80,$00,$00,$00,$80
  174. LB_02F4
  175.     DC.B    $03,$FB,$3F,$FC,$3F,$FF,$9F,$FF
  176.     DC.B    $DF,$FC,$07,$F6,$04,$04,$C0,$02
  177.     DC.B    $40,$00,$60,$00,$20,$02,$08,$09
  178.     DC.B    $08,$00,$C0,$01,$40,$00,$60,$00
  179.     DC.B    $20,$01,$10,$01,$10,$F0,$A0,$70
  180.     DC.B    $A0,$78,$50,$3C,$30,$30,$A3,$E1
  181.     DC.B    $21,$08,$90,$88,$50,$84,$48,$42
  182.     DC.B    $28,$48,$44,$11,$41,$04,$90,$88
  183.     DC.B    $50,$9A,$48,$4D,$28,$48,$44,$09
  184.     DC.B    $42,$03,$10,$88,$50,$A5,$88,$52
  185.     DC.B    $C8,$48,$43,$86,$82,$00,$10,$88
  186.     DC.B    $50,$A4,$08,$52,$08,$48,$40,$60
  187.     DC.B    $82,$00,$10,$88,$50,$C4,$08,$62
  188.     DC.B    $08,$48,$60,$1C,$82,$00,$10,$70
  189.     DC.B    $90,$04,$08,$02,$08,$30,$98,$02
  190.     DC.B    $82,$00,$10,$03,$10,$C4,$08,$62
  191.     DC.B    $08,$03,$07,$01,$82,$00,$10,$00
  192. LB_037C
  193.     DC.B    $90,$A4,$08,$52,$08,$7C,$00,$C1
  194.     DC.B    $82,$00,$10,$70,$90,$A4,$08,$52
  195.     DC.B    $08,$40,$30,$21,$42,$00,$10,$88
  196.     DC.B    $50,$99,$88,$4C,$C8,$40,$48,$11
  197.     DC.B    $41,$03,$10,$88,$50,$82,$48,$41
  198.     DC.B    $28,$40,$48,$11,$21,$0C,$90,$88
  199.     DC.B    $50,$84,$48,$42,$28,$40,$44,$11
  200.     DC.B    $10,$F1,$10,$88,$50,$88,$48,$44
  201.     DC.B    $28,$40,$43,$E2,$10,$01,$20,$48
  202.     DC.B    $20,$78,$50,$3C,$30,$30,$40,$02
  203.     DC.B    $0C,$06,$40,$24,$00,$00,$60,$00
  204.     DC.B    $20,$08,$4C,$0C,$03,$F8,$3F,$C3
  205.     DC.B    $FF,$FF,$9F,$FF,$DF,$F0,$33,$F0
  206.     DC.B    $20,$20,$A9,$20,$31,$39,$39,$32
  207.     DC.B    $20,$20,$43,$6F,$6D,$65,$64,$69
  208.     DC.B    $61,$6E,$20,$6F,$66,$20,$43,$52
  209.     DC.B    $45,$45,$50,$53
  210.